0 :REM FREISOFT DEMO-SPIEL
1 :REM STEUERUNG EINES ZEICHENS
2 :REM MIT JOYSTICK ODER TASTATUR
3 :REM (DIRK BREITINGER  2002)
4 :
5 :
19 :GOTO2000:
20 :SAVE"@0:T&T  JOY+CHAR",8:RETURN:
21 :
22 :
23 :
140 :REM----JOYSTICK & TASTEN-ABFRAGE
141 :GETA$:J=31-PEEK(JO)AND31:ON-(J=.ANDA$="")GOTO141:IFJ=.THEN:RETURN
142 :IFJAND1THEN:A$="[145]":RETURN
143 :IFJAND2THEN:A$="":RETURN
144 :IFJAND4THEN:A$="[157]":RETURN
145 :IFJAND8THEN:A$="":RETURN
146 :A$=R$:RETURN:---FEUER
147 :
148 :
149 :
2000 :REM==============================
2001 :REM      VARIABLEN
2002 :REM==============================
2003 :
2004 :JO=56320:R$=CHR$(13):FI$="[158][146][209][157]":
2005 :DEFFNP(A)=PEEK(PEEK(209)+PEEK(210)*256+POS(.)+A)
2006 :
2010 :PRINT"[147][142]ZEICHEN STEUERUNG PER JOYSTICK[159]":A=0
2011 :PRINTTAB(A)"        "
2012 :PRINTTAB(A)"        "
2013 :PRINTTAB(A)"   [146]   [146]  "
2014 :PRINTTAB(A)"        "SPC(6)"E[159]"
2015 :PRINTTAB(A)"[146]        "SPC(5)"[146][153][193][193][193][193]":
2016 :DI=0
2020 :XA=0:XE=39:YA=1:YE=23::X=0:Y=4
2098 :
2099 :
2100 :REM==============================
2101 :REM      STEUERUNG
2102 :REM==============================
2105 :POKE214,Y:POKE211,X:SYS58640:
2106 :
2110 :PRINT" [157]"A$FI$;
2111 :GOSUB140:
2112 :IFA$=""THEN:IFX<XETHEN:X=X+1:C=1:GOTO2130
2113 :IFA$="[157]"THEN:IFX>XATHEN:X=X-1:C=-1:GOTO2130
2114 :IFA$="[145]"THEN:IFY>YATHEN:Y=Y-1:C=-40:GOTO2130
2115 :IFA$=""THEN:IFY<YETHEN:Y=Y+1:C=40:GOTO2130
2120 :ON1-(A$="[133]")-2*(A$="[148]")GOTO2111,2200,3300:
2126 :
2130 :REM---BEWEGUNGEN AUSWERTEN
2131 :P=FNP(C)::IFP=32GOTO2110
2132 :IFP=65THEN:DI=DI+1:GOTO2110:
2133 :
2134 :IFP=133GOTO2140:REM---ENDE
2135 :Y=Y+(C>1)-(C<-1):X=X+(C=1)-(C=-1):GOTO2111:REM---KEINE BEWEGUNG
2140 :REM---ENDE
2141 :PRINT" [157]"A$FI$;:POKE214,18:PRINTR$"GESAMMELT[146]:";DI
2142 :GOSUB140:END